home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / SEE_REL.DIR / 00016_Script_16 < prev    next >
Text File  |  1997-07-25  |  2KB  |  54 lines
  1. on show_keys_for current_item
  2.   global keyword_shadow_list, reverse_index
  3.   
  4.   put " " into field "keys_hit_list"
  5.   put " " into field "keys"
  6.   
  7.   
  8.   
  9.   put findpos(reverse_index,current_item) into cur_pos
  10.   
  11.   if (cur_pos > 0) then
  12.     put getat(reverse_index,cur_pos) into cur_keywords
  13.     
  14.     
  15.     put "" into new_key_list
  16.     put "" into new_shadow_list
  17.     
  18.     repeat with i = 1 to count(cur_keywords)
  19.       put getat(cur_keywords,i) into this_word
  20.       
  21.       --      put line this_word of field "keyword_list" & return after new_key_list
  22.       put the name of member this_word of castlib "keyword.cst" & return after new_key_list
  23.       --      put this_word & return after new_shadow_list
  24.     end repeat
  25.     
  26.     delete char (the number of chars of new_key_list) of new_key_list
  27.     --    delete char (the number of chars of new_shadow_list) of new_shadow_list
  28.     
  29.     put new_key_list into field "keys"
  30.     --    put new_shadow_list into keyword_shadow_list
  31.     set the scrolltop of member "keys" to 1
  32.   else
  33.     put "No suggestions" into field "keys"
  34.   end if
  35. end
  36.  
  37. on startmovie
  38.   global term_to_display, reverse_index
  39.   
  40.   
  41.   if voidp(reverse_index) then do "set reverse_index = "&field "reverse_index"
  42.   
  43.   put " " into field "keys_hit_list"
  44.   put " " into field "keys"
  45.   
  46.   show_keys_for(term_to_display)
  47.   set the cursor of sprite 9 to [member "hand",member "hand mask"]
  48. end
  49.  
  50. on stopmovie
  51.   put " " into field "keys_hit_list"
  52.   put " " into field "keys"
  53. end
  54.